home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Science / RLaB / toolbox / jordan.r < prev    next >
Text File  |  1994-04-25  |  244b  |  10 lines
  1. //
  2. //JORDAN  JORDAN(N, LAMBDA) is the N-by-N Jordan block with eigenvalue LAMBDA.
  3. //        LAMBDA = 1 is the default.
  4.  
  5. jordan = function(n, lambda)
  6. {
  7.   if(!exist (lambda)) { lambda = 1; }
  8.   return ( lambda*eye(n,n) + diag(ones(n-1,1),1) );
  9. };
  10.